home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / stresst.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  9KB  |  269 lines

  1. 1 PRINTCHR$(14)"[147]";:EV=0:RE=0
  2. 2 POKE 53280,11:POKE53281,11:POKE646,3
  3. 3 PRINT"     [200][207][215][160][205][213][195][200][160][211][212][210][197][211][211][160][195][193][206][160][217][207][213][160][212][193][203][197]?"
  4. 4 POKE646,1
  5. 5 PRINT"[196]R. [212]HOMAS [200]. [200]OLMES DEVISED THIS SCALE"
  6. 6 PRINT"ASSIGNING POINT VALUE TO CHANGES, BOTH"
  7. 7 POKE646,1
  8. 8 PRINT"GOOD AND BAD, THAT OFTEN AFFECT US."
  9. 9 PRINT"[215]HEN ENOUGH CHAGES OCCUR DURING ONE"
  10. 10 PRINT"ONE YEAR TO ADD UP TO 300 POINTS, A"
  11. 11 PRINT"DANGER POINT HAS BEEN REACHED."
  12. 12 PRINT"[201]N THE POPULATION HE STUDIED, 80 PER-"
  13. 13 PRINT"CENT OF THE PEOPLE WHO EXCEEDED 300 "
  14. 14 PRINT"POINTS BECAME SERIOUSLY DEPRESSED OR"
  15. 15 PRINT"SUFFERED SERIOUS ILLNESSES."
  16. 16 IF EV=11THENRETURN
  17. 17 PRINT"    [208]RESS ANY KEY TO CONTINUE..."
  18. 18 GETA$
  19. 19 IFA$="\"THENP=345:GOTO 156
  20. 20 IFA$=""THEN18
  21. 21 PRINT"[147][217]OU WILL BE ASKED TO RESPOND [217]ES OR "
  22. 22 PRINT"[206]O TO 43 QUESTIONS. [201]F YOUR TOTAL"
  23. 23 PRINT"EQUALS OR EXCEEDS 300 POINTS, YOU WILL"
  24. 24 PRINT"BE SHOWN [154][199][213][201][196][197][204][201][206][197][211][160][198][207][210][160][204][207][215][160][211][212][210][197][211][211]"
  25. 25 PRINT"[204][201][214][201][206][199], 18 SIMPLE SUGGESTIONS FOR"
  26. 26 PRINT"LEADING A LESS STRESSFUL LIFE. [198]OR"
  27. 27 PRINT"MORE INFORMATION ABOUT THE DANGERS OF"
  28. 28 PRINT"STRESS, CONSULT YOUR DOCTOR."
  29. 29 PRINT"      [208]RESS ANY KEY TO BEGIN."
  30. 30 GOSUB 266
  31. 31 POKE646,10
  32. 32 PRINT"[147][197][214][197][206][212]    [204][201][198][197]
  33. 33 [153]"(null)ATN(null)(null)VAL    VAL(null)VAL(null)(null)
  34. 34 PRINT"[163][163][163][163][163]    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  35. 35 POKE646,1
  36. 36 IFRE=1THENRETURN
  37. 37 RE=1
  38. 38 PRINT" 100     [196]EATH OF SPOUSE (Y/N)"
  39. 39 GOSUB150
  40. 40 PRINT"  73     [196]IVORCE (Y/N)"
  41. 41 GOSUB150
  42. 42 PRINT"  65     [205]ARITAL SEPERATION (Y/N)"
  43. 43 GOSUB150
  44. 44 PRINT"  63     [202]AIL TERM (Y/N)"
  45. 45 GOSUB150
  46. 46 PRINT"  63     [196]EATH OF CLOSE FAMILY MEMBER"
  47. 47 GOSUB150
  48. 48 PRINT"  53     [208]ERSONAL INJURY OR ILLNESS"
  49. 49 GOSUB150
  50. 50 PRINT"  50     [205]ARRIAGE (Y/N)"
  51. 51 GOSUB150
  52. 52 PRINT"  47     [198]IRED FROM JOB (Y/N)"
  53. 53 GOSUB150
  54. 54 RE=1
  55. 55 GOSUB 31
  56. 56 PRINT"  45     [205]ARITAL RECONCILLIATION (Y/N)"
  57. 57 GOSUB150
  58. 58 PRINT"  45     [210]ETIREMENT (Y/N)"
  59. 59 GOSUB150
  60. 60 PRINT"  44     [200]EALTH CHANGE IN FAMILY MEMBER"
  61. 61 GOSUB150
  62. 62 PRINT"  40     [208]REGNANCY (Y/N)"
  63. 63 GOSUB150
  64. 64 PRINT"  39     [211]EX DIFFICULTIES (Y/N)"
  65. 65 GOSUB150
  66. 66 PRINT"  39     [199]AIN OF NEW FAMILY MEMBER"
  67. 67 GOSUB150
  68. 68 PRINT"  39     [194]USINESS READJUSTMENT (Y/N)"
  69. 69 GOSUB150
  70. 70 PRINT"  38     [195]HANGE IN FINANCIAL STATE (Y/N)"
  71. 71 GOSUB150
  72. 72 PRINT"  37     [196]EATH OF CLOSE FRIEND (Y/N)"
  73. 73 GOSUB150
  74. 74 GOSUB 31
  75. 75 PRINT"  36     [195]HANGE TO DIFFERENT LINE"
  76. 76 PRINT"         OF WORK (Y/N)
  77. 77 [141]150
  78. 78 [153]"  35     LENHANGE IN NUMBER OF"
  79. 79 [153]"         ARGUMENTS WITH SPOUSE (Y/N)"
  80. 80 [141]150
  81. 81 [153]"  31     (null)ORTGAGE OVER $10,000 (Y/N)"
  82. 82 [141]150
  83. 83 [153]"  30     ASCORCLOSURE OF MORTGAGE OR LOAN"
  84. 84 [141]150
  85. 85 [153]"  29     LENHANGE IN RESPONSIBILITIES"
  86. 86 [153]"         AT WORK (Y/N)"
  87. 87 [141]150
  88. 88 [153]"  29     (null)ON OR DAUGHTER LEAVING"
  89. 89 [153]"         HOME (Y/N)"
  90. 90 [141]150
  91. 91 [153]"  29     (null)ROUBLE WITH INLAWS (Y/N)"
  92. 92 [141]150
  93. 93 [153]"  28     (null)UTSTANDING PERSONAL"
  94. 94 [153]"         ACHIEVEMENT (Y/N)"
  95. 95 [141]150
  96. 96 [141] 31
  97. 97 [153]"  28     (null)POUSE BEGIN OR STOP WORK"
  98. 98 [141]150
  99. 99 [153]"  26     PEEKEGIN OR END SCHOOL (Y/N)"
  100. 100 [141]150
  101. 101 [153]"  25     LENHANGE IN LIVING"
  102. 102 [153]"         CONDITIONS (Y/N)"
  103. 103 [141]150
  104. 104 [153]"  24     (null)EVISION OF PERSONAL"
  105. 105 [153]"         HABITS (Y/N)"
  106. 106 [141]150
  107. 107 [153]"  23     (null)ROUBLE WITH BOSS (Y/N)"
  108. 108 [141]150
  109. 109 [153]"  20     LENHANGE IN WORK HOURS"
  110. 110 [153]"         OR CONDITONS (Y/N)"
  111. 111 [141]150
  112. 112 [153]"  20     LENHANGE IN (null)ESIDENCE (Y/N)"
  113. 113 [141]150
  114. 114 [153]"  20     LENHANGE IN SCHOOLS (Y/N)"
  115. 115 [141]150
  116. 116 [153]"  19     LENHANGE IN RECREATION (Y/N)"
  117. 117 [141]150
  118. 118 [141] 31
  119. 119 [153]"  19     LENHANGE IN CHURCH ACTIVITIES"
  120. 120 [141]150
  121. 121 [153]"  18     LENHANGE SOCIAL ACTIVITIES"
  122. 122 [141]150
  123. 123 [153]"  17     (null)ORTGAGE OR LOAN LESS"
  124. 124 [153]"         THAN $10,000 (Y/N)"
  125. 125 [141]150
  126. 126 [153]"  16     LENHANGE IN SLEEPING HABITS"
  127. 127 [141]150
  128. 128 [153]"  15     LENHANGE IN THE NUMBER OF"
  129. 129 [153]"         FAMILY GET TOGETHERS (Y/N)"
  130. 130 [141]150
  131. 131 [153]"  15     LENHANGE IN EATING HABITS (Y/N)"
  132. 132 [141]150
  133. 133 [153]"  13     (null)ACATION (Y/N)"
  134. 134 [141]150
  135. 135 [153]"  12     LENHRISTMAS (Y/N)"
  136. 136 [141]150
  137. 137 [153]"  11     (null)INOR VIOLATIONS OF THE LAW"
  138. 138 [141]150
  139. 139 [153]"LOAD";
  140. 140 [139]P[178][177]300 [167] 156
  141. 141 [141]3
  142. 142 [153]"(null)OUR TOTAL POINTS: ";P
  143. 143 [141]266
  144. 144 [138]
  145. 145 [131] 100,73,65,63,63,53,50,47,45
  146. 146 [131] 45,44,40,39,39,39,38,37,36,35
  147. 147 [131] 31,30,29,29,29,28,26,26,25,24
  148. 148 [131] 23,20,20,20,19,19,18,17,16,15
  149. 149 [131] 15,13,12,11
  150. 150 [135] EV:A$[178]""
  151. 151 [151]198,0:[129]X[178]1[164]999:[130]
  152. 152 [161] A$:[139]A$[178]""[167]152
  153. 153 [139]A$[178]"N"[167][142]
  154. 154 [139]A$[178]"Y"[167]P[178]P[170]EV:[142]
  155. 155 [137]151
  156. 156 [151]53280,4:[151]53281,4:[151]646,0
  157. 157 [153]"LOADRIGHT$N THE POPULATION SAMPLE STR$R. LEFT$OLMES"
  158. 158 [153]"USED IN HIS RESEARCH, 80 PER CENT OF"
  159. 159 [153]"THE PEOPLE WHO EXCEEDED 300 POINTS"
  160. 160 [153]"BECAME SERIOUSLY DEPRESSED OR SUFFERED"
  161. 161 [153]"SERIOUS ILLNESSES. (null)OUR POINT SCORE OF"
  162. 162 [153]"     INDICATES THAT YOU VERIFYCOULDSTOP BECOME"
  163. 163 [153]"SERIOUSLY DEPRESSED OR WORSE. (null)OU SHOULD"
  164. 164 [153]"CONSULT WITH YOUR FAMILY DOCTOR. ATNNY "
  165. 165 [153]"REAL HELP IS BEYOND THE SCOPE OF THIS"
  166. 166 [153]"PROGRAM. LEFT$OWEVER, THE FOLLOWING "
  167. 167 [153]"CHR$(null)RIGHT$STR$VAL(null)RIGHT$(null)VAL(null)CLOSEASC(null)(null)CLOSE(null)(null)(null)CLOSE(null)(null)(null)VAL(null)(null) (null)RIGHT$(null)RIGHT$(null)CHR$ MAY"
  168. 168 [153]"BE OF SOME INTEREST. (null)RESS ANY KEY ..."
  169. 169 [161]A$:X[178]X[170]1:[139][181](X[173]2)[178]X[173]2[167][153]"";[199](18);P
  170. 170 [139]X[173]2[179][177][181](X[173]2)[167][129]Z[178]1[164]40:[130]Z:[153]"";P
  171. 171 [139]A$[178]""[167]169
  172. 172 [151]646,3:[151]53281,6:[151]53280,6
  173. 173 [153]"LOAD   CHR$(null)RIGHT$STR$VAL(null)RIGHT$(null)VAL(null)CLOSEASC(null)(null)CLOSE(null)(null)(null)CLOSE(null)(null)(null)VAL(null)(null)CLOSE(null)RIGHT$(null)RIGHT$(null)CHR$"
  174. 174 [151]646,10
  175. 175 [153]"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB( TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB("
  176. 176 [151]646,1:[139] RE[178]2[167][142]
  177. 177 [153]"1. (null)AKE TIME YOUR FRIEND, NOT YOUR"
  178. 178 [153]"   ENEMY. STR$EVELOP TIME MANGAGEMENT"
  179. 179 [153]"   TECHNIQUES."
  180. 180 [153]"2. (null)EARN AND PRACTICE THE SKILL OF"
  181. 181 [153]"   RELAXATION."
  182. 182 [153]"3. VALNGAGE IN ACTIVITIES THAT GIVE "
  183. 183 [153]"   YOU A CHANCE TO DO SOMETHING"
  184. 184 [153]"   RELAXING OR CREATIVE WITHOUT"
  185. 185 [153]"   HAVING TO HAVE SOMETHING TO SHOW"
  186. 186 [153]"   FOR IT."
  187. 187 [153]"4. STR$ON'T DEVELOP ONE ARE OF YOUR "
  188. 188 [153]"   LIFE TO THE EXCLUSION OF OTHERS."
  189. 189 [153]"   (null)EEK REWARDING EXPERIENCES IN ALL"
  190. 190 [153]"   FACETS OF LIVING."
  191. 191 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
  192. 192 [141]266
  193. 193 RE[178]2:[141] 172
  194. 194 [153]"5. ASCIND SOME TIME EVERY DAY FOR"
  195. 195 [153]"   PRIVACY. (null)OU NEED TO BE ALONE WITH"
  196. 196 [153]"   YOUR THOUGHTS AWAY FROM WORK OR"
  197. 197 [153]"   OTHER PRESSURES."
  198. 198 [153]"6. ATNSSOCIATE WITH PEOPLE WHO AFFIRM"
  199. 199 [153]"   YOUR INDIVIDUALITY AND RESPECT"
  200. 200 [153]"   YOUR WANTS AND NEEDS."
  201. 201 [153]"7. ASCORM AT LEAST ONE OR TWO HIGH"
  202. 202 [153]"   QUALITY RELATIONSHIPS WITH PEOPLE"
  203. 203 [153]"   YOU CAN TRUST. (null)EARN TO EXPRESS YOUR"
  204. 204 [153]"   TRUE FEELINGS TO THEM."
  205. 205 [153]"8. STR$ON'T CONTINUE IN STRESSFUL"
  206. 206 [153]"   SITUATIONS WITH FAMILY AND FRIENDS."
  207. 207 [153]"   (null)AKE ACTION TO FIND A REOLUTION IN"
  208. 208 [153]"   PROBLEM AREAS."
  209. 209 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
  210. 210 [141]266
  211. 211 [141]172
  212. 212 [153]"9. CHR$UARD YOUR PERSONAL FREEDOMS - TO"
  213. 213 [153]"   CHOOSE YOUR FRIENDS, TO LOVE WHOM"
  214. 214 [153]"   YOU CHOOSE, TO STRUCTURE YOUR TIME"
  215. 215 [153]"   AS YOU SEE FIT, AND TO CHOOSE YOUR"
  216. 216 [153]"   OWN LIFE GOALS."
  217. 217 [153]"10. (null)EVIEW YOUR 'OBLIGATIONS' FROM "
  218. 218 [153]"    TIME TO TIME AND MAKE SURE THEY"
  219. 219 [153]"    ARE ALSO BRINGING REWARDS TO YOU."
  220. 220 [153]"    CHR$ET RID OF THE THINGS THAT ONLY"
  221. 221 [153]"    BRING SATISFACTION TO SOMEONE ELSE."
  222. 222 [153]"11. STR$ON'T LIVE FOR OR THROUGH YOUR"
  223. 223 [153]"    CHILDREN, SPOUSE OR ANYONE ELSE."
  224. 224 [153]"12. (null)PEN YOURSELF TO NEW EXPERIENCES."
  225. 225 [153]"13. STR$EVELOP AND KEEP SENSIBLE EATING"
  226. 226 [153]"    HABITS."
  227. 227 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
  228. 228 [141]266
  229. 229 [141]172
  230. 230 [153]"14. RIGHT$F YOU SMOKE, CUT DOWN OR STOP."
  231. 231 [153]"15. (null)SE LIQUOR SPARINGLY, IF AT ALL."
  232. 232 [153]"    STR$ON'T LET IT USE YOU."
  233. 233 [153]"16. ASCREE YOURSELF FROM DEPENDENCY ON"
  234. 234 [153]"    TRANQUILIZERS, SLEEPING PILLS,"
  235. 235 [153]"    HEADACHE PILLS OR OTHER DEPRESSANT"
  236. 236 [153]"    DRUGS. PEEKE CAUTIOUS OF THE USE OF"
  237. 237 [153]"    LAXITIVES AND COLD REMEDIES. (null)EACH"
  238. 238 [153]"    YOUR BODY TO RELAX AND NORMALIZE"
  239. 239 [153]"    FUNCTIONS."
  240. 240 [153]"17. (null)EE THE HUMOR IN LIFE. (null)AUGH AT "
  241. 241 [153]"    YOURSELF WHENEVER YOU GET A CHANCE."
  242. 242 [153]"18. (null)RACTICE MAKING POSITIVE SELF"
  243. 243 [153]"    STATEMENTS. (null)EMIND YOURSELF THAT"
  244. 244 [153]"    (null)(null)(null) ARE WORTHWHILE AND DESRVING"
  245. 245 [153]"        (null)RESS ATNNY (null)EY (null)O LENONTIUE"
  246. 246 [141]266
  247. 247 [153]"POKE       (null)HE (null)TRESS (null)EST"
  248. 248 [153]"OPENLOAD(null)RESS  CHR$ WAIT TO REVIEW THE GUIDLINES.":A$[178]""
  249. 249 [153]"(null)RESS  (null) WAIT TO QUIT THE (null)TRESS (null)EST."
  250. 250 [153]"(null)RESS  (null) WAIT TO START THE (null)TRESS (null)EST."
  251. 251 [153]"LIST(null)HE (null)TRESS (null)EST AND THE CHR$UIDELINES"
  252. 252 [153]"ASCOR (null)OW (null)TRESS (null)IVING WERE PRINTED BY"
  253. 253 [153]"ASCIRST LEFT$OSPITAL LENORPORATION. (null)HILE NO"
  254. 254 [153]"COPYRIGHT NOTICE APPEARED ON EITHER,"
  255. 255 [153]"ALL RIGHTS CLAIMED BY ASCIRST LEFT$OSPITAL"
  256. 256 [153]"ARE RESERVED AND SHOULD BE RESPECTED."
  257. 257 [129]X[178]1[164]100:[130]:A$[178]""
  258. 258 [153]"INFORMATION AND ENTERTAINMENT ONLY."
  259. 259 [153]"SYSLENONSULT YOUR FAMILY DOCTOR FOR MEDICAL"
  260. 260 [153]"ADVICE."
  261. 261 [141]266
  262. 262 [139]A$[178]"G"[167] RE[178]1:[137]173
  263. 263 [139]A$[178]"Q"[167][128]
  264. 264 [139]A$[178]"S"[167][138]
  265. 265 [137]261
  266. 266 [151]198,0
  267. 267 [161]A$:[139]A$[178]""[167]267
  268. 268 [142]
  269.